home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir42 / a2z.zip / ADDR.COD < prev    next >
Text File  |  1994-02-03  |  3KB  |  105 lines
  1. *
  2. Key = Concat(Last,@,First,@,Mid)
  3. If City = Blank Or
  4. If State = Blank Then
  5.   Link Zip[C:Zip] = Zip
  6.   If Record_Linked = Y Then
  7.     City = City[C:Zip]
  8.     State = State[C:Zip]
  9.     Else
  10.     City = 'Not Found'
  11.   Endif
  12. Endif
  13.   *
  14. If City <> 'Not Found' Then
  15.   Link Rec[C:Labl] = Write
  16.   Key[C:Labl] = Key
  17.   If Mid = Blank Then
  18.   M1[C:Labl] = Concat(First,@,Last)
  19.   Else
  20.   M1[C:Labl] = Concat(First,@,Mid,@,Last)
  21.   Endif
  22.   M2[C:Labl] = Addr
  23.   State = Upper
  24.   M3[C:Labl] = Concat(City,@,State,@,Zip)
  25.   W1 = M1[C:Labl]
  26.   W2 = M2[C:Labl]
  27.   W3 = M3[C:Labl]
  28.   *
  29.   Link Rec[C:Letr] = Write
  30.   Key[C:Letr] = Key
  31.   @L1[C:Letr] = W1
  32.   Dmil = Sysdmil
  33.   *
  34.   String(@L1[C:Letr],54,3) = String(Dmil,4,3)
  35.   String(@L1[C:Letr],58,2) = String(Dmil,1,2)
  36.   String(@L1[C:Letr],60,1) = ,
  37.   String(@L1[C:Letr],62,4) = String(Dmil,8,4)
  38.   *
  39.   @L2[C:Letr] = W2
  40.   @L3[C:Letr] = W3
  41.   @L4[C:Letr] = Blank
  42.   @L5[C:Letr] = Blank
  43.   *
  44.   W2 = Parse(W1)
  45.   W1 = 'Dear'
  46.   W3 = ,
  47.   @L6[C:Letr] = Concat(W1,@,W2,W3)
  48.   @L7[C:Letr] = Blank
  49.   *
  50.   @L8[C:Letr] = 'This letter was created by A2Z using its relationa'
  51.   String(@L8[C:Letr],51,15) = 'l ability to   '
  52.   @L9[C:Letr] = 'extract and merge data from multiple files under m'
  53.   String(@L9[C:Letr],51,15) = 'acro control   '
  54.   @L10[C:Letr] = 'to create output files such as this custom letter.'
  55.   *
  56.   String(@L10[C:Letr],53,12) = Concat(W2,W3)
  57.   *
  58.   W1 = 'I'm'
  59.   W2 = 'sure you can appreciate the power of A2Z demonstra'
  60.   W3 = 'ted here!'
  61.   *
  62.   If String(@L10[C:Letr],54,1) = , Then
  63.   String(@L10[C:Letr],56,4) = W1
  64.   @L11[C:Letr] = W2
  65.   String(@L11[C:Letr],51,15) =  W3
  66.   Else
  67.   If String(@L10[C:Letr],55,1) = , Then
  68.   String(@L10[C:Letr],57,4) = W1
  69.   @L11[C:Letr] = W2
  70.   String(@L11[C:Letr],51,15) =  W3
  71.   Else
  72.   If String(@L10[C:Letr],56,1) = , Then
  73.   String(@L10[C:Letr],58,4) = W1
  74.   @L11[C:Letr] = W2
  75.   String(@L11[C:Letr],51,15) =  W3
  76.   Else
  77.   If String(@L10[C:Letr],57,1) = , Then
  78.   String(@L10[C:Letr],59,4) = W1
  79.   @L11[C:Letr] = W2
  80.   String(@L11[C:Letr],51,15) =  W3
  81.   Else
  82.   If String(@L10[C:Letr],58,1) = , Then
  83.   String(@L10[C:Letr],60,4) = W1
  84.   @L11[C:Letr] = W2
  85.   String(@L11[C:Letr],51,15) =  W3
  86.   Else
  87.   If String(@L10[C:Letr],59,1) = , Then
  88.   String(@L10[C:Letr],61,4) = W1
  89.   @L11[C:Letr] = W2
  90.   String(@L11[C:Letr],51,15) =  W3
  91.   Else
  92.   If String(@L10[C:Letr],60,1) = , Then
  93.   String(@L10[C:Letr],62,4) = W1
  94.   @L11[C:Letr] = W2
  95.   String(@L11[C:Letr],51,15) =  W3
  96.   Else
  97.   @L11[C:Letr] = 'I'M sure you can appreciate the power of A2Z demon'
  98.   String(@L11[C:Letr],51,15) =  'strated here!  '
  99.   Endif
  100.   *
  101.   @L12[C:Letr] = Blank
  102.   @Include[C:Letr] = C:Form
  103.   *
  104. Endif
  105.